home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilenus / marxmenu / menus.exe / FORMAT.MNU < prev    next >
Encoding:
MarxMenu script  |  1991-03-22  |  2.3 KB  |  117 lines
  1. Comment
  2. ===================================================
  3.  
  4. DM3 Menu Overlay * CopyRight 1989-90 By Marc Perkel
  5.  
  6. This is a File Compression Overlay fo DM3. This allows you to
  7. compress marked files.
  8.  
  9. ===================================================
  10. EndComment
  11.  
  12. Var ForeColor BackColor %Option %Message
  13.  
  14. if ColorScreen
  15.    BoxHeaderColor Yellow Mag
  16.    InverseColor Yellow Mag
  17.    BoxBorderColor LGreen Brown
  18.    BoxInsideColor Grey Brown
  19. else
  20.    BoxHeaderColor Black Grey
  21.    InverseColor Black Grey
  22.    BoxBorderColor White Black
  23.    BoxInsideColor Grey Black
  24. endif
  25.  
  26. ClearScreenOnExit Off
  27. BlankTime = 10
  28. BlankMessage = 'Executing DM3'
  29.  
  30. BoxHeader = ' Format Floppy Disk Menu '
  31. DrawBox 21 7 44 7
  32. TextColor Yellow Brown
  33. ClearLine 205
  34. TextColor Grey Brown
  35. UseArrows
  36. CapsColor Yellow Brown
  37.  
  38. Writeln
  39. Writeln '  1 - Format 360      5 - Format /S 360'
  40. Writeln '  2 - Format 1.2M     6 - Format /S 1.2M'
  41. Writeln '  3 - Format 720      7 - Format /S 720'
  42. Write   '  4 - Format 1.4M     8 - Format /S 1.4M'
  43.  
  44. OnKey '1'
  45.   |%Message = '360k Format with no System Files.'
  46.   |%Option = '/4'
  47.   |Format2
  48.  
  49. OnKey '2'
  50.   |%Message = '1.2m Format with no System Files.'
  51.   |%Option = ''
  52.   |Format2
  53.  
  54. OnKey '3'
  55.   |%Message = '720k Format with no System Files.'
  56.   |%Option = '/N:9/T:80'
  57.   |Format2
  58.  
  59. OnKey '4'
  60.   |%Message = '1.4m Format with no System Files.'
  61.   |%Option = '/N:18/T:80'
  62.   |Format2
  63.  
  64. OnKey '5'
  65.   |%Message = '360k Format with System Files.'
  66.   |%Option = '/4/S'
  67.   |Format2
  68.  
  69. OnKey '6'
  70.   |%Message = '1.2m Format with System Files.'
  71.   |%Option = '/S'
  72.   |Format2
  73.  
  74. OnKey '7'
  75.   |%Message = '720k Format with System Files.'
  76.   |%Option = '/N:9/T:80/S'
  77.   |Format2
  78.  
  79. OnKey '8'
  80.   |%Message = '1.4m Format with System Files.'
  81.   |%Option = '/N:18/T:80/S'
  82.   |Format2
  83.  
  84. OnKey 'E'
  85.   ME %MenuFileName
  86.  
  87.  
  88. :Format2
  89.  
  90. if DosVersionString >= '5.00' then %Option = %Option + '/U'
  91.  
  92. BoxBorderColor LCyan Blue
  93. BoxInsideColor White Blue
  94. BoxHeader = ' Drive '
  95. DrawBox 50 12 11 5
  96. TextColor Yellow Blue
  97. ClearLine 205
  98. TextColor White Blue
  99. UseArrows
  100. Writeln
  101. Writeln '   A:'
  102. Write   '   B:'
  103.  
  104. OnKey 'A'
  105.   @Echo Off
  106.   @Echo Formatting Drive A: %Message
  107.   @Echo To abort, press CTRL-C.
  108.   @Echo .
  109.   FORMAT A:%Option
  110.  
  111. OnKey 'B'
  112.   @Echo Off
  113.   @Echo Formatting Drive B: %Message
  114.   @Echo To abort, press CTRL-C.
  115.   @Echo .
  116.   FORMAT B:%Option
  117.